home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / robo42_a.zip / KEYWORDS.RS < prev    next >
Text File  |  1992-07-23  |  1KB  |  41 lines
  1. ;-----------------------------------------------------------------------
  2. ; KEYWORD.RS - Robocomm 4.x script to upload a keyword file to Qmail 4
  3. ;.......................................................................
  4. ; Author:   Dan Parsons
  5. ; Version:  1.0
  6. ; Date:     04/27/92
  7. ;
  8. ; Notes:    This script expects to find a KEYWORD file in the configured
  9. ;           REP dir with the name <BBSID>.KEY.  For example, on Group
  10. ;           One BBS, the script would look for GROUPONE.KEY in the
  11. ;           configured REP file directory.
  12. ;
  13. ;           Make sure this script is executed BEFORE any Download Mail
  14. ;           operations are performed
  15. ;
  16. ;-----------------------------------------------------------------------
  17. TITLE "Upload Keyword File to Qmail 4 Door"
  18. ENDPARAMS
  19.  
  20.     IF NOT EXIST "%REPDIR%%ID%.KEY" GOTO NOKEY
  21.  
  22.     VENUE MAIL
  23.     SEND "K|"
  24.     WAITFOR "%ID%.KEY"
  25.     UPLOAD "%REPDIR%%ID%.KEY" USING "%BBS21%"
  26.  
  27.     ; If we used an external protocol, we may need to "bump" the BBS to get
  28.     ; back a prompt containing the Qmail door main command prompt.
  29.     SEND "|"
  30.  
  31.     ; We need to wait for the main command prompt so the next agenda
  32.     ; item's command character ("U" or "D") will not be lost during
  33.     ; keyword processing.
  34.     WAITFOR "%BBS40%"
  35.  
  36. EXIT 0
  37.  
  38. :NOKEY
  39.     MESSAGE "No %REPDIR%%ID%.KEY file to upload"
  40. EXIT 0
  41.